home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / sal100.zip / SAL.SCR < prev    next >
Text File  |  1994-11-14  |  2KB  |  88 lines
  1. [Sort Algorithms Script File][1.00]-[Insertionsort]
  2. setvektor 0 2 -55 3 0 -99 23 89 14
  3. initsource 
  4. outsource 3
  5. outsource 4
  6. outsource 6
  7. outsource 8
  8. outdesc Let's sort the array between Vektor[0] and Vektor[1]
  9. outsource 9
  10. outdesc While sort between Vektor[0] and Vektor[1] not complete do
  11. compare 0 1 0
  12. outsource 11
  13. outdesc Swap Vektor[1] and Vektor[0]
  14. swap 0 1 0
  15. outsource 12
  16. outdesc Sort between Vektor[0] and Vektor[1] complete !
  17. outsource 8
  18. outdesc Let's sort the array between Vektor[0] and Vektor[2]
  19. outsource 9
  20. outdesc While sort between Vektor[0] and Vektor[2] not complete do
  21. outdesc Sort between Vektor[0] and Vektor[2] complete !
  22. outsource 8
  23. outdesc Let's sort the array between Vektor[0] and Vektor[3]
  24. outsource 9
  25. outdesc While sort between Vektor[0] and Vektor[3] not complete do
  26. compare 0 3 2
  27. outsource 11
  28. outdesc Swap Vektor[3] and Vektor[2]
  29. swap 0 3 2
  30. outsource 12
  31. compare 0 2 1
  32. outsource 11
  33. outdesc Swap Vektor[2] and Vektor[1]
  34. swap 0 2 1
  35. outsource 12
  36. outdesc Sort between Vektor[0] and Vektor[3] complete !
  37. outsource 8
  38. outdesc Let's sort the array between Vektor[0] and Vektor[4]
  39. outsource 9
  40. outdesc While sort between Vektor[0] and Vektor[4] not complete do
  41. compare 0 4 3
  42. outsource 11
  43. outdesc Swap Vektor[4] and Vektor[3]
  44. swap 0 4 3
  45. outsource 12
  46. compare 0 3 2
  47. outsource 11
  48. outdesc Swap Vektor[3] and Vektor[2]
  49. swap 0 3 2
  50. outsource 12
  51. compare 0 2 1
  52. outsource 11
  53. outdesc Swap Vektor[2] and Vektor[1]
  54. swap 0 2 1
  55. outsource 12
  56. compare 0 1 0
  57. outsource 11
  58. outdesc Swap Vektor[1] and Vektor[0]
  59. swap 0 1 0
  60. outsource 12
  61. outdesc Sort between Vektor[0] and Vektor[4] complete !
  62. outsource 8
  63. outdesc Let's sort the array between Vektor[0] and Vektor[5]
  64. outsource 9
  65. outdesc While sort between Vektor[0] and Vektor[5] not complete do
  66. outdesc Sort between Vektor[0] and Vektor[5] complete !
  67. outsource 8
  68. outdesc Let's sort the array between Vektor[0] and Vektor[6]
  69. outsource 9
  70. outdesc While sort between Vektor[0] and Vektor[6] not complete do
  71. outdesc Sort between Vektor[0] and Vektor[6] complete !
  72. outsource 8
  73. outdesc Let's sort the array between Vektor[0] and Vektor[7]
  74. outsource 9
  75. outdesc While sort between Vektor[0] and Vektor[7] not complete do
  76. compare 0 7 6
  77. outsource 11
  78. outdesc Swap Vektor[7] and Vektor[6]
  79. swap 0 7 6
  80. outsource 12
  81. compare 0 6 5
  82. outsource 11
  83. outdesc Swap Vektor[6] and Vektor[5]
  84. swap 0 6 5
  85. outsource 12
  86. outdesc Sort between Vektor[0] and Vektor[7] complete !
  87. outsource 15
  88. [THE] [END]